home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / ditroff / s.eqn < prev    next >
Text File  |  1988-12-18  |  2KB  |  58 lines
  1. .bd S B 3
  2. .    \" EQ - equation, breakout and display
  3. .de EQ
  4. .nr UR \\n(.u
  5. .rm EE
  6. .nr LE 1    \" default centered
  7. .ds EL \f1\\$1\fP
  8. .if \\$1C .ds EL \f1\\$2\fP
  9. .if \\$1L \{\
  10. .    ds EL \f1\\$2\fP
  11. .    nr LE 0
  12. .\}
  13. .if \\$1I \{\
  14. .    ds EL \f1\\$2\fP
  15. .    nr LE 0
  16. .    ds EE \\h'|10n'
  17. .    if !\\$3 .ds EE \\h'\\$3'
  18. .\}
  19. .if \\n(YE>0 .nf
  20. .di EZ
  21. ..
  22. .    \" EN - end of a displayed equation
  23. .de EN
  24. .if !\\*(10 .br
  25. .di
  26. .rm EZ
  27. .nr ZN \\n(dn
  28. .if \\n(ZN>0 .if \\n(YE=0 .LP
  29. .if \\n(ZN=0 .if !\\*(EL .nr ZN 1
  30. .if \\n(.z .if \\n(ZN>0 .if !\\n(nl=\\n(PE .sp \\n(DDu
  31. .if !\\n(.z .if \\n(ZN>0 .if !\\n(.d=\\n(PE .sp \\n(DDu
  32. .pc
  33. .if \\n(BD>0 .nr LE 0    \" can't mean centering in this case.
  34. .if \\n(MK>0 .if \\n(LE=1 .ds EE \\h'|10n'
  35. .if \\n(MK>0 .nr LE 0    \" don't center if mark/lineup
  36. .lt \\n(.lu
  37. .if \\n(EP=0 .if \\n(ZN>0 \{\
  38. .    if \\n(LE>0 .tl \\*(10\\*(EL
  39. .    if \\n(LE=0 .if \\n(BD=0 .tl \\*(EE\\*(10\\*(EL
  40. .    if \\n(LE=0 .if \\n(BD>0 .if \\n(BD<\\w\\*(10 .nr BD \\w\\*(10
  41. .    if \\n(LE=0 .if \\n(BD>0 \!\\*(10\\t\\*(EL
  42. .\}
  43. .if \\n(EP>0 .if \\n(ZN>0 \{\
  44. .    if \\n(LE>0 .tl \\*(EL\\*(10
  45. .    if \\n(LE=0 .if \\n(BD=0 .tl \\*(EL\\*(EE\\*(10
  46. .    if \\n(LE=0 .if \\n(BD>0 .if \\n(BD<\\w\\*(10 .nr BD \\w\\*(10
  47. .    if \\n(LE=0 .if \\n(BD>0 \!\\h'-\\\\n(.iu'\\*(EL\\h'|0'\\*(10
  48. .\}
  49. .lt \\n(LLu
  50. .pc %
  51. .if \\n(YE>0 .if \\n(UR>0 .fi
  52. .rm 10 11 12 13 14 15 16 17 18 19 20 21 22 23 EL
  53. .rr 10 11 12 13 14 15 16 17 18 19 20 21 22 23
  54. .if \\n(ZN>0 .if t .sp \\n(DDu
  55. .if \\n(.z .nr PE \\n(nl
  56. .if !\\n(.z .nr PE \\n(.d
  57. ..
  58.